Option Explicit
Sub D_Sample036()
    Dim myWb As Workbook
    Set myWb = Workbooks(1)					'Nï
    'ǳƨ즹
    myWb.Save
    Set myWb = Nothing						'
End Sub

